Sub SaveSheetAsPDFAndSendEmail()
    Dim FileName As String
    Dim OutApp As Object
    Dim OutMail As Object
    Dim ws As Worksheet
    
    ' '발주서' 시트의 이름을 지정
    Set ws = ThisWorkbook.Sheets("발주서")
    
    ' PDF 파일의 이름을 현재 날짜와 시간으로 지정
    FileName = "발주서_" & Format(Now(), "yyyyMMdd_HHmmss") & ".pdf"
    
    ' '발주서' 시트를 PDF로 저장
    ws.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=FileName, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
        
    ' Outlook 객체 생성
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    
    ' 이메일 설정
    With OutMail
        .To = "excelmaster@naver.com" ' 수신자 이메일 주소
        .Subject = "발주서" ' 이메일 제목
        .Body = "발주서를 첨부하였습니다." ' 이메일 내용
        .Attachments.Add FileName ' PDF 파일을 첨부
        .Send ' 이메일 발송
    End With
    
    ' Outlook 객체 해제
    Set OutMail = Nothing
    Set OutApp = Nothing
    
    ' PDF 파일 삭제
    Kill FileName
    
    MsgBox "이메일이 성공적으로 발송되었습니다.", vbInformation
    
End Sub
